home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 May / Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64 / 128 bug rep 2 (.txt) next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.2 KB  |  47 lines
  1. 10 printchr$(147)"loading and checking the data...":j=4864
  2. 20 forb=0to11:reada:ifa<0ora>255then40
  3. 30 pokej+b,a:x=x+a:nextb:reada:ifa=xthen50
  4. 40 print:print"error in data line:"peek(66)*256+peek(65):end
  5. 50 x=0:j=j+12:ifj<5213then20
  6. 60 poke208,0:poke5213,0:a$="y":b$=a$:c$="d":d$="disk":d=8:printchr$(147)
  7. 70 input"do you want automatic saves (y/n)";a$:print:ifa$="y"then90
  8. 80 print"no automatic saves...":goto150
  9. 90 poke5213,1:input"disk or tape (d/t)";c$:ifc$<>"d"thend=1:d$="tape"
  10. 100 poke5214,d:d$=d$+" drive":print:input"file number (0-99)";n
  11. 110 n$=right$(str$(n),2):ifn<10thenn$=chr$(48)+chr$(n+48)
  12. 120 f$="backup":print:input"filename";f$:f$=n$+left$(f$,14):l=len(f$)
  13. 130 poke5215,l:forj=1tol:poke5215+j,asc(mid$(f$,j,1)):nextj:print
  14. 140 print"saving device ** "d$:print"starting with ** "f$
  15. 150 print:input"is this correct (y/n)";b$:ifb$<>"y"then60
  16. 160 poke770,198:poke771,77:sys4864:end
  17. 170 data32,58,20,169,41,162,19,236,3,3,208,4,955
  18. 180 data169,198,162,77,141,2,3,142,3,3,224,19,1143
  19. 190 data208,7,32,125,255,79,78,0,96,32,125,255,1292
  20. 200 data79,70,70,0,96,162,0,134,251,189,0,2,1053
  21. 210 data240,19,201,48,144,9,201,58,176,5,133,251,1485
  22. 220 data232,208,238,134,252,165,251,208,3,76,198,77,2042
  23. 230 data169,0,166,235,164,236,133,253,133,254,142,47,1932
  24. 240 data20,140,48,20,24,101,22,69,254,230,254,24,1206
  25. 250 data101,23,69,254,170,230,254,164,252,185,0,2,1704
  26. 260 data133,251,201,34,208,6,165,253,73,255,133,253,1965
  27. 270 data201,32,208,4,165,253,240,8,138,24,101,251,1625
  28. 280 data69,254,170,44,198,254,230,252,164,251,208,213,2307
  29. 290 data138,41,240,74,74,74,74,24,105,65,141,88,1138
  30. 300 data20,138,41,15,24,105,65,141,89,20,32,79,769
  31. 310 data20,189,85,20,240,6,32,210,255,232,208,245,1742
  32. 320 data174,47,20,172,48,20,24,32,240,255,173,93,1298
  33. 330 data20,240,27,165,161,201,212,176,4,165,160,240,1771
  34. 340 data17,32,65,20,238,32,208,238,1,214,32,225,1322
  35. 350 data255,208,6,32,49,20,76,198,77,232,208,242,1603
  36. 360 data200,208,239,32,66,193,173,95,20,162,96,160,1644
  37. 370 data20,32,189,255,169,0,170,32,104,255,169,0,1395
  38. 380 data174,94,20,168,32,186,255,169,45,174,16,18,1351
  39. 390 data172,17,18,32,216,255,162,1,189,96,20,168,1346
  40. 400 data200,152,201,58,144,2,169,48,157,96,20,201,1448
  41. 410 data48,208,3,202,16,234,32,49,20,141,0,2,955
  42. 420 data76,183,77,58,59,32,65,20,206,32,208,206,1222
  43. 430 data1,214,169,0,170,168,76,219,255,32,79,20,1403
  44. 440 data169,26,141,0,214,173,0,214,16,251,96,162,1462
  45. 450 data0,142,0,255,96,19,18,32,32,32,32,146,804
  46. 460 data0,1,0,0,65,72,79,89,33,0,0,0,339
  47.